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Figure 12A 
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Figure 12C 
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Begin RoutePacket 0 
Define L of type Address; 

Define next_channei, input_channel of type Channel; 

Define msg of type Message; 

Import messageQueue of type Queue; 

forever 

if length of (messageQueue) > O then 

dequeueMessage (messageQueue, (msg, input_channel)); 

if msg.status = Returned then 

— this message has been returned. 
handleReturnedMessage (msg, input_channel); 

else 

— Pass message on to next node* 
set L := msg.L 

if L - myJL then 

— Packet has arrived - terminates here. 

ProcessCell (msg.cell); 

else 

set next_channel decideNextChannel (L,myJL); 

if next_channel = NoBestChannel then 
set msg.status := Returned; 
set next_channel input_channel; 

end if 

SendPacketToChannel (msg, next_channel); 

end if 

end if 

end if 

end 

end RoutePacket 
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Begin decideNextChannel (Address L, Address myJL) of type Channel 
define hop of type Address; 

define weightedChannelSum, sum, weightedChannel of type Real Number; 
define bestChannel of type Channel; 
define j, unuseableChannels of type Integer; 

set hop := L - myJL; 

set weightedChannelSum 0*0; 

set sum :~ 0.0; 

for j := 0 to Length of(hop) 

{ . " 

if ChannelUtilisation (j) > MaximumChannelUtilisation then 

set unuseableChannels unuseableChannels + 1; 

end if 

set weightedChannelSum:^ weightedChannelSum+hop[j]*j/ChannelUtilisation (j); 
set sum := sum hop [j] / ChannelUtilisation [j]; 

} 

if unuseableChannels - ActiveChannels then 

- message cannot be forwarded from this node must be handed back to sender. 

return NoBestChannel; 
end if 

set weightedChannel := weightedChannelSum / sum; 

set bestChannel :« MapW eightedChannelToBestChannei (weightedChannel); 

return bestChannel; 
end decideNextChannel 
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Figure 18 
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Figure 19 
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